Top 10k strings from Professional Linear Programming (1983)(University Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 ;"subject to":
   3 ;"optimal solution:":
   3 ,j)=-a(m+1
   2 rm=a(i,l+1
   2 m(i)=a(m+1
   2 ;"PRIMAL:":
   2 )/a(i,pc):
   2 "value of obj.func.=";:
   2 "+(";x;")x";j;
   2 "(";x;")x1";
   1 z=z+a(i,j):
   1 r(n+w+i);" ";
   1 q$(i);e(i):
   1 pp=a(pr,pc):
   1 m(i)=-m(i)
   1 m(i)=-a(m+1
   1 m(i)=-(a(m+1
   1 m$;"  (";g(m+1
   1 m$;"  (";a(m+1
   1 k(j)=r(j)-r(n+uu)
   1 k(j)=-k(j)
   1 d=d+k(j)*g(m+1
   1 a(pr,j)=a(pr,j)/pp:
   1 a(i,n+w+i)=1
   1 a(i,n+w+i)=-1
   1 a(i,n+r)=-1
   1 a(i,m+n+w+i)=1
   1 a(i,j)=g(i,j)
   1 a(i,j)=bb*a(pr,j)+a(i,j):
   1 a(i,j)=-a(i,j)
   1 PROFESSIONA
   1 MIN MAX   
   1 LINEAR PROGRAMMING
   1 ;"value of obj.func.=";:
   1 ;"subject to"
   1 ;"problem is unbounded"
   1 ;"problem has no feasible solution":
   1 ;"enter ss to change sign                  constraints"
   1 ;"enter r to run with changed data"
   1 ;"enter qs to change signs of              constraints"
   1 ;"enter oj to change coefficients          of objective function"
   1 ;"enter ob to change objective"
   1 ;"enter co to change coefficients          of constraints"
   1 ;"enter cn to change constants"
   1 ;"CANNONICAL:":
   1 ;"+(";g(m+1
   1 ,n+w+i)=-t
   1 ,n+w+i)-t:
   1 ,n+w+i)+t)
   1 ,m+n+w+i)=t:
   1 ,j);")y";j;:
   1 ,j);")x";j;:
   1 ,i)=-a(m+1
   1 ,i);")z1";:
   1 ** simplex algorithm **
   1 )=-a(i,l+1
   1 );")z";j;:
   1 ("variable ";j;" (
   1 ("value of obj.func.coeff.";j;"=");g(m+1
   1 ("value of constant ";i;"=");e(i):
   1 ("value of coeff.(";i;",";j;")=");g(i,j):
   1 ("form of constraint ";i;"(
   1 ("constraint ";i;" (
   1 ("constant ";i;": ");e(i):
   1 ("coefficients of objective funct:coefficient ";j;": ");x:
   1 ("coefficients of constraints:    constraint ";i;",coefficient ";j;": ");x:
   1 "z:copy,c:primal,r:new problem,  s:save,d:change-data ";
   1 "z:copy,c:dual ";
   1 "z:copy,c:cannonical-dual ";
   1 "z";j;"=";
   1 "y";j;"=";r(j);" ";:
   1 "x";j;s$(j);"0 ";
   1 "x";j;"=";k(j);" ";:
   1 "which variable~s sign? ";j:
   1 "which variable? ";j:
   1 "which constraint~s sign? ";i:
   1 "which constraint? ";i:
   1 "which constant? ";i:
   1 "which coeff.? ";j:
   1 "s";i;"=";
   1 "objective function to be        (min/max): ";
   1 "no of variables: ";n:
   1 "no of constraints: ";m
   1 "Enter z to copy,d to change datar for a new problem ";
   1 "Enter s to run program with     saved data,enter n for new data ";
   1 "=slack(s)"
   1 "=";a(i,l+1
   1 ",y";j;"=x";j;
   1 ",y";j;"=-x";j;
   1 ",y";j;"-y";n+uu;"=x";j;
   1 "+(";g(i,j);")x";j;:
   1 "+(";a(m+1
   1 "+(";a(j,l+1
   1 "+(";a(j,i);")z";j;:
   1 "+(";a(i,j);")y";j;:
   1 "(max/min): ";
   1  or n (for no signconstraint); variable ";j;": ");
   1  copyright 1983    UNIVERSITY SOFTWARE **